|
200
|
Disables the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:Series():Add("<img>1</img>Asia(4600),<img>2</img>Africa(1300),<img>3</img>Europe(747),<img>4</img>North America(579),<img>5</img>South America(433),<img>6</img>Australia/Oceania(42)")
oGraph:Enabled := .F.
oGraph:Legend():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
199
|
Show icons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGraph:AutoFit := .T.
oGraph:Series():Add("<img>1</img>Asia(4600),<img>2</img>Africa(1300),<img>3</img>Europe(747),<img>4</img>North America(579),<img>5</img>South America(433),<img>6</img>Australia/Oceania(42)")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
198
|
Displays the control's version
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
DevOut( oGraph:Version() )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
197
|
Changes the control's border (EBN)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oGraph:Appearance := 16777216/*0x1000000+*/
oGraph:Series():Add("Asia(4600),Africa(1300),Europe(747),North America(579),South America(433),Australia/Oceania(42)")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
196
|
Changes the control's border
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:Appearance := 1/*Flat*/
oGraph:Series():Add("Asia(4600),Africa(1300),Europe(747),North America(579),South America(433),Australia/Oceania(42)")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
195
|
Display the logo on the control's background
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:Picture := oGraph:ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
oGraph:PictureDisplay := 2/*UpperRight*/
oGraph:AutoFit := .T.
oGraph:CategoryAxis():Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph:Series():Add("1410,1390,331,276,225,213")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
194
|
Changes the control's font
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie
LOCAL oStdFont
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oStdFont := oGraph:Font()
oStdFont:Name := "Tahoma"
oStdFont:Size := 12
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSerie := oGraph:Series():Add("1410,1390,331,276,225,213")
oSerie:Type := "Pie"
oSerie:ShowValue := 7/*exValue+exLine+exPoint*/
oSerie:ValueFormat := "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
oGraph:Legend():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
193
|
Shows the value-scroll (vertical scroll bar for area-compatible chart types)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:ValueSize := 8
oGraph:SetProperty("Misc",31/*exAllowValueScroll*/,1.5)
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
oSerie := oGraph:Series():Add()
oSerie:Name := "msft"
oSerie:Data := "Open,High,Low,Close"
oSerie:Type := "candle"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
192
|
No values are shown
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:SetProperty("Misc",29/*exShowValueIf*/,0)
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil,"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSerie := oGraph:Series():Add("1410,1390,331,276,225,213")
oSerie:ShowValue := 7/*exValue+exLine+exPoint*/
oSerie:ValueFormat := "`<c>` + category + `<br><c>` + value"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
191
|
No labels on category-axis are shown
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:ValueSize := 15
oGraph:SetProperty("Misc",28/*exShowLabelsIf*/,0)
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "Date"
oCategoryAxis:Format := "value mid 9 left 2"
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
oSerie := oGraph:Series():Add()
oSerie:Name := "msft"
oSerie:Data := "Open,High,Low,Close"
oSerie:Type := "candle"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
190
|
No category grid lins are shown
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:ValueSize := 8
oGraph:SetProperty("Misc",27/*exShowGridLinesIf*/,0)
oGraph:CategoryAxis():MajorGridLines():Color := "lightgray"
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
oSerie := oGraph:Series():Add()
oSerie:Name := "msft"
oSerie:Data := "Open,High,Low,Close"
oSerie:Type := "candle"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
189
|
No category ticks are shown
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:ValueSize := 8
oGraph:SetProperty("Misc",26/*exShowTicksIf*/,0)
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
oSerie := oGraph:Series():Add()
oSerie:Name := "msft"
oSerie:Data := "Open,High,Low,Close"
oSerie:Type := "candle"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
188
|
Defines the lower and upper margins of the valueSize property (CTRL + Middle button and drag to resize the values)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:ValueSize := 8
oGraph:SetProperty("Misc",25/*exValueSizeRange*/,"1,12")
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
oSerie := oGraph:Series():Add()
oSerie:Name := "msft"
oSerie:Data := "Open,High,Low,Close"
oSerie:Type := "candle"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
187
|
Even though I set the AutoFit property to False, the control still gets resized when I click CTRL + Middle button
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:ValueSize := 8
oGraph:SetProperty("Misc",25/*exValueSizeRange*/,"0,8")
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil,"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oGraph:Series():Add("1410,1390,331,276,225,213")
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
186
|
Defines the angle (in degrees) the value-line is rotated by, when the values goes up(positive) or down(negative)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",23/*exValueLineUpAngle*/,0)
oGraph:SetProperty("Misc",24/*exValueLineDownAngle*/,90)
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "Green,Black,Red,Lime,Orange,Red"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSerie := oGraph:Series():Add("1410,331,-1390,-276,1225,213")
oSerie:ShowValue := 7/*exValue+exLine+exPoint*/
oSerie:ValueFormat := "`<c>` + category + `<br><c>` + (value format ``)"
oSerie:Type := "line"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
185
|
Defines the additional angle (in degrees) the value-line is rotated by
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",22/*exValueLineAddAngle*/,0)
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil,"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSerie := oGraph:Series():Add("1410,1390,331,276,225,213")
oSerie:ShowValue := 7/*exValue+exLine+exPoint*/
oSerie:ValueFormat := "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
184
|
Defines the distance to extend the value-line by
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",21/*exValueLineExt*/,12)
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil,"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSerie := oGraph:Series():Add("1410,1390,331,276,225,213")
oSerie:ShowValue := 7/*exValue+exLine+exPoint*/
oSerie:ValueFormat := "`<c>` + category + `<br><c>` + value"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
183
|
Defines the distance from the edge of the outer circle where the values are displayed
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:SetProperty("Misc",20/*exValueDistOuterCircular*/,0)
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSerie := oGraph:Series():Add("1410,1390,331,276,225,213")
oSerie:Type := "Pie"
oSerie:ShowValue := 7/*exValue+exLine+exPoint*/
oSerie:ValueFormat := "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
oGraph:ValuePoint := ",,,,,,,red,black,2"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
182
|
Defines the distance from the edge of the inner circle where the values are displayed
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:SetProperty("Misc",19/*exValueDistInnerCircular*/,8)
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSerie := oGraph:Series():Add("1410,1390,331,276,225,213")
oSerie:Type := "Pie"
oSerie:ShowValue := 7/*exValue+exLine+exPoint*/
oSerie:ValueFormat := "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
181
|
Defines the padding between rings of the "pie" chart-type
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie,oSerie1
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:SetProperty("Misc",18/*exPaddingInsidePie*/,12)
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSerie := oGraph:Series():Add("1410,1390,331,276,225,213")
oSerie:Type := "Pie"
oSerie:ShowValue := 7/*exValue+exLine+exPoint*/
oSerie:ValueFormat := "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
oSerie1 := oGraph:Series():Add("141,139,331,276,225,213")
oSerie1:Type := "Pie"
oSerie1:ShowValue := 7/*exValue+exLine+exPoint*/
oSerie1:ValueFormat := "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
180
|
Requests for a new layout once the serie's visible property is changed
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:SetProperty("Misc",17/*exNewLayoutOnVisibleChange*/,.F.)
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSerie := oGraph:Series():Add("1410,1390,331,276,225,213")
oSerie:Type := "Pie"
oSerie:ShowValue := 7/*exValue+exLine+exPoint*/
oSerie:ValueFormat := "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
oGraph:Legend():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
179
|
Prevents rotating the labels
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",16/*exRadialRotateLabels*/,.F.)
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oGraph:Series():Add("1410,1390,331,276,225,213"):Type := "radarColumn"
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
178
|
Defines the angle (in degrees) to start the circular-compatible charts (radial or pie)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",15/*exCircularStartAngle*/,0)
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oGraph:Series():Add("1410,1390,331,276,225,213"):Type := "radarColumn"
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
177
|
Defines polygonal instead of circular
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",14/*exRadarPolygonal*/,.T.)
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oGraph:Series():Add("1410,1390,331,276,225,213"):Type := "radarColumn"
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
176
|
Defines the distance (proportionally with the valueSize property) between the first, next and last value of the same category and its border
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",11/*exMarginValueRatio*/,0.5)
oGraph:SetProperty("Misc",12/*exPaddingValueRatio*/,0.5)
oGraph:CategoryAxis():Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph:Series():Add("1410,1390,331,276,225,213")
oGraph:Series():Add("9900,3300,980,190,90,8")
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
175
|
Ensures that the marginal labels of the value-axis ensure fit the axis's client-rectangle
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",13/*exValueAxisFitLabel*/,.T.)
oGraph:CategoryAxis():Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph:Series():Add("1410,1390,331,276,225,213")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
174
|
Prevents updating the margins/minimum/maximum of the value-axis when the user scrolls the data
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:ValueSize := 6
oGraph:SetProperty("Misc",10/*exUpdateRangeOnScroll*/,0)
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
oSerie := oGraph:Series():Add()
oSerie:Data := "Volume"
oSerie:Type := "candle"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
173
|
Defines the padding for labels and title of the value-axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",9/*exValueAxisPad*/,16)
oGraph:CategoryAxis():Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph:Series():Add("1410,1390,331,276,225,213")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
172
|
Defines the size (height for horizontal axis and width for vertical axis) to display the category-axis (line and ticks)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",8/*exValueAxisSize*/,16)
oGraph:ValueAxis():OffsetLabel := "16,16"
oGraph:CategoryAxis():Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph:Series():Add("1410,1390,331,276,225,213")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
171
|
Defines the padding for labels and title of the category-axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",7/*exCategoryAxisPad*/,16)
oGraph:CategoryAxis():Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph:Series():Add("1410,1390,331,276,225,213")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
170
|
Defines the size (height for horizontal axis and width for vertical axis) to display the category-axis (line and ticks)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",6/*exCategoryAxisSize*/,16)
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oCategoryAxis:OffsetLabel := "0,-16"
oGraph:Series():Add("1410,1390,331,276,225,213")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
169
|
Defines the minimum/maximum portion (as a proportion of major unit, as a numeric-value between 0 and 1) to extend the axis before the first/after the last value of the serie (minimum, maximum value)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",4/*extVisibleBeforeAxis*/,1)
oGraph:SetProperty("Misc",5/*extVisibleAfterAxis*/,1)
oGraph:CategoryAxis():Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph:Series():Add("1410,1390,331,276,225,213")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
168
|
Defines the number of digits to appear after the decimal point (as it is)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",3/*exDigits*/,-1)
oGraph:CategoryAxis():Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph:Series():Add("1410.1211,1390.8999,331.3421,276.8991,225.0023,213.2231"):ShowValue := 7/*exValue+exLine+exPoint*/
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
167
|
Defines the number of digits to appear after the decimal point
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",3/*exDigits*/,3)
oGraph:CategoryAxis():Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph:Series():Add("1410.1211,1390.8999,331.3421,276.8991,225.0023,213.2231"):ShowValue := 7/*exValue+exLine+exPoint*/
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
166
|
Defines the inferior and superior limits of the number of major-unit intervals an axis can display
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",2/*exRangeMajorUnits*/,"2")
oGraph:CategoryAxis():Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph:Series():Add("1410,1390,331,276,225,213")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
165
|
Defines the base major-units alternatives (separated by comma) the control uses to calculate the major-unit for the axes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Misc",1/*exBaseMajorUnits*/,"5")
oGraph:CategoryAxis():Categories := "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph:Series():Add("1410,1390,331,276,225,213")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
164
|
Customizes the tooltips to show on category-axis, when the crosshair intersects the category-axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCursor
LOCAL oSerie
LOCAL oValueAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oValueAxis := oGraph:ValueAxis()
oValueAxis:Format := "value + `°`"
oValueAxis:CursorFormat := "``"
oGraph:CategoryAxis():CursorFormat := "`<b><fgcolor F0F0F0> ` + value + ` `"
oSerie := oGraph:Series():Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain")
oSerie:Type := "RangeColumn"
oSerie:CursorFormat := "%V0 +`° - ` + %V1 + `°`"
oGraph:SeriesColors := "green"
oCursor := oGraph:Cursor()
oCursor:Visible := .T.
oCursor:SerieTooltipBackColor := "black"
oCursor:SerieTooltipForeColor := "rgb(254,254,254)"
oCursor:TooltipPad := 4
oCursor:ShowCursorValueLine := .F.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
163
|
Defines the configuration options to show the grid lines and labels between for the overview panel
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oFormatGridLinesOptions
LOCAL oValueAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oValueAxis := oGraph:ValueAxis()
oValueAxis:Format := "value / 1000000"
oValueAxis:MajorUnit := 50000000
oFormatGridLinesOptions := oGraph:CategoryAxis():OverviewGridLines()
oFormatGridLinesOptions:Format := "`<fgcolor red><b>` + (value left 4)"
oFormatGridLinesOptions:Color := "red"
oFormatGridLinesOptions:Style := 1
oFormatGridLinesOptions:Width := 2
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
oGraph:SeriesColors := "blue"
oGraph:Series():Add("Volume")
oGraph:Overview():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
162
|
Add additional grid-lines for categories
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oFormatGridLinesOptions
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oFormatGridLinesOptions := oCategoryAxis:ChartGridLines()
oFormatGridLinesOptions:Format := "value = `Pakistan`"
oFormatGridLinesOptions:Align := 1024/*exTextCalcRect*/
oFormatGridLinesOptions:Width := 2
oFormatGridLinesOptions:Color := "black"
oFormatGridLinesOptions:Skip := 1
oGraph:Series():Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph:SeriesColors := "lime"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
161
|
Add grid-lines for categories
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oGraph:Series():Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph:SeriesColors := "lime"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
160
|
Shifts horizontally or vertically the labels relative to their original positions
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:ValueSize := 48
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
oCategoryAxis:OffsetLabel := "0,-22"
oCategoryAxis:Tfi := "<fgcolor red> bold"
oGraph:Series():Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph:SeriesColors := "lime"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
159
|
Combines/Merges categories sharing consecutive names according to the Format property
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:CategoryAxis():Visible := .T.
oCategoryAxis := oGraph:CategoryAxes():Add("Winter,Winter,Spring,Spring,Spring,Summer,Summer,Summer,Autumn,Autumn,Autumn,Winter")
oCategoryAxis:Format := "value"
oCategoryAxis:Split := .T.
oCategoryAxis:MajorGridLines():Color := "black"
oGraph:ValueAxis():Format := "value + `°`"
oGraph:Series():Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain"):Type := "RangeColumn"
oGraph:SeriesColors := "lime"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
158
|
Combines/Merges categories sharing consecutive names according to the Format property
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:ValueSize := 6
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "Date"
oCategoryAxis:Format := "dateS(value left 7) format `MMM`"
oCategoryAxis:Split := .T.
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSerie := oGraph:Series():Add()
oSerie:Name := "msft"
oSerie:Data := "Open,High,Low,Close"
oSerie:Type := "candle"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
157
|
Defines the category-axis's background color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oLegend
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:CategoryAxis():Visible := .T.
oCategoryAxis := oGraph:CategoryAxes():Add("Winter,Winter,Spring,Spring,Spring,Summer,Summer,Summer,Autumn,Autumn,Autumn,Winter")
oCategoryAxis:Format := "value"
oCategoryAxis:Split := .T.
oCategoryAxis:Tfi := "bold"
oCategoryAxis:Color := 14474460
oGraph:ValueAxis():Format := "value + `°`"
oGraph:Series():Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain"):Type := "RangeColumn"
oGraph:Series():Add("Jan(-4 2), Feb(-3 4), Mar(1 10), Apr(5 16), May(10 21), Jun(13 25), Jul(15 28), Aug(14 27), Sep(10 22), Oct(5 15), Nov(0 7), Dec(-3 3)","Romania"):Type := "RangeColumn"
oLegend := oGraph:Legend()
oLegend:Visible := .T.
oLegend:Dock := 3/*exLeft*/
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
156
|
Defines the color, size, style, skip and step configuration options of the major ticks to be shown on the value-axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oTickOptions
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():Format := "value + `°`"
oTickOptions := oGraph:CategoryAxis():MajorTicks()
oTickOptions:Color := "red"
oTickOptions:Width := 4
oTickOptions:Style := 0
oTickOptions:Skip := 3
oTickOptions:Step := 2
oGraph:Series():Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain"):Type := "RangeColumn"
oGraph:SeriesColors := "green"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
155
|
Defines the color, size, style, skip and step configuration options of the major grid-lines to be shown by the value-axis on the chart panel
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oGridLinesOptions
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():Format := "value + `°`"
oGridLinesOptions := oGraph:CategoryAxis():MajorGridLines()
oGridLinesOptions:Color := "red"
oGridLinesOptions:Width := 4
oGridLinesOptions:Style := 0
oGridLinesOptions:Skip := 3
oGridLinesOptions:Step := 2
oGraph:Series():Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain"):Type := "RangeColumn"
oGraph:SeriesColors := "green"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
154
|
Defines the color, size and style to display the line of the category-axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oLineOptions
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():Format := "value + `°`"
oLineOptions := oGraph:CategoryAxis():AxisLine()
oLineOptions:Color := "red"
oLineOptions:Width := 2
oLineOptions:Style := 0
oGraph:Series():Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain"):Type := "RangeColumn"
oGraph:SeriesColors := "green"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
153
|
Specifies the rotation angle (in degrees) for the title and labels of the category-axis, in 'labels,title' format
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():Format := "value + `°`"
oGraph:CategoryAxis():Angle := "-90"
oGraph:Series():Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain"):Type := "RangeColumn"
oGraph:SeriesColors := "green"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
152
|
Defines the title of the category-axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():Format := "value + `°`"
oGraph:CategoryAxis():Title := "<b>Range-Temperature"
oGraph:Series():Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain"):Type := "RangeColumn"
oGraph:SeriesColors := "green"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
151
|
Changes the font attributes to apply on the title and labels of the category-axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
oCategoryAxis:Tfi := "<fgcolor red> Tahoma 7 bold"
oGraph:Series():Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
150
|
Defines the direction of the category axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
oCategoryAxis:Reverse := .T.
oGraph:Series():Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
149
|
Aligns the category-axis to bottom/right or top/left side of the view
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
oCategoryAxis:Align := 0/*exAlignLeft*/
oGraph:Series():Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
148
|
Hides the category axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
oCategoryAxis:Visible := .F.
oGraph:Series():Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
147
|
Customizes the labels to show on category axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
oCategoryAxis:Format := "(index < 2 ? `<b>` : `<fgcolor gray>`) + value"
oGraph:Series():Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
146
|
Defines the categories (method 2)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:Series():Add("China(1410),India(1390),United States(331),Indonesia(276),Pakistan(225),Brazil(213),Nigeria(211),Bangladesh(166),Russia(145),Mexico(130)")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
145
|
Defines the categories (method 1)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:CategoryAxis():Categories := "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
oGraph:Series():Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph:SeriesColors := "blue"
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
144
|
Adds multiple category-axes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oLegend
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:CategoryAxis():MajorGridLines():Color := "lightgray"
oCategoryAxis := oGraph:CategoryAxes():Add("Winter,Winter,Spring,Spring,Spring,Summer,Summer,Summer,Autumn,Autumn,Autumn,Winter")
oCategoryAxis:Format := "value"
oCategoryAxis:Split := .T.
oCategoryAxis:Tfi := "bold"
oCategoryAxis:MajorGridLines():Color := "black"
oGraph:ValueAxis():Format := "value + `°`"
oGraph:Series():Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain"):Type := "RangeColumn"
oGraph:Series():Add("Jan(-4 2), Feb(-3 4), Mar(1 10), Apr(5 16), May(10 21), Jun(13 25), Jul(15 28), Aug(14 27), Sep(10 22), Oct(5 15), Nov(0 7), Dec(-3 3)","Romania"):Type := "RangeColumn"
oLegend := oGraph:Legend()
oLegend:Visible := .T.
oLegend:Dock := 3/*exLeft*/
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
143
|
Redefines the major-unit of the value-axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():MajorUnit := 1000
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
142
|
Redefines the margins/limits of the value-axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
LOCAL oValueAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oValueAxis := oGraph:ValueAxis()
oValueAxis:Min := -100
oValueAxis:Max := 6000
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
141
|
Defines the start/end position of the value-axis (relative to full axis)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie,oSerie1
LOCAL oSeries
LOCAL oValueAxes
LOCAL oValueAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oValueAxes := oGraph:ValueAxes()
oValueAxes:Add("p"):End := 0.75
oValueAxis := oValueAxes:Add("a")
oValueAxis:End := 0.25
oValueAxis:Visible := .F.
oValueAxis:ColorChart := 16119285
oValueAxis:Reverse := .T.
oValueAxis:MajorGridLines():Width := 0
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:Axis := "p"
oSerie:Type := "Line"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oSerie1 := oSeries:Add("4458,3037,1018,2470,1784,1018,856")
oSerie1:Name := "Area"
oSerie1:Axis := "a"
oGraph:Legend():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
140
|
Customizes the tooltips to show on value-axis, when the crosshair hovers the chart
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
LOCAL oValueAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oValueAxis := oGraph:ValueAxis()
oValueAxis:Format := "value format `0`"
oValueAxis:CursorFormat := "value format `0`"
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:Cursor():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
139
|
Hides the tooltip that's shown over the value-axis, while cursor hovers the serie
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():CursorFormat := "``"
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:Cursor():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
138
|
Shifts horizontally or vertically the labels relative to their original positions
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():OffsetLabel := "4,8"
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
137
|
Defines the color to apply on the chart's background right to the value-axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():ColorChart := "red"
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
136
|
Changes the value-axis's background color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():Color := "red"
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
135
|
Defines the color, size, style, skip and step configuration options of the major grid-lines to be shown by the value-axis on the chart panel
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oGridLinesOptions
LOCAL oSerie
LOCAL oSeries
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGridLinesOptions := oGraph:ValueAxis():MajorGridLines()
oGridLinesOptions:Color := "red"
oGridLinesOptions:Width := 4
oGridLinesOptions:Style := 0
oGridLinesOptions:Skip := 3
oGridLinesOptions:Step := 2
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
134
|
Defines the color, size, style, skip and step configuration options of the major ticks to be shown on the value-axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
LOCAL oTickOptions
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oTickOptions := oGraph:ValueAxis():MajorTicks()
oTickOptions:Color := "red"
oTickOptions:Width := 4
oTickOptions:Style := 0
oTickOptions:Skip := 3
oTickOptions:Step := 2
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
133
|
Defines the color, size and style to display the line of the value-axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oLineOptions
LOCAL oSerie
LOCAL oSeries
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oLineOptions := oGraph:ValueAxis():AxisLine()
oLineOptions:Color := "red"
oLineOptions:Width := 2
oLineOptions:Style := 0
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
132
|
Converts the serie's values to [0,1] range, as percentages (the values area always numbers between 0 and 1)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
LOCAL oValueAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oValueAxis := oGraph:ValueAxis()
oValueAxis:AsPercent := .T.
oValueAxis:Format := "value * 100 + `%`"
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
131
|
Defines the rotation angle (in degrees) for the title and labels of the axis, in 'labels,title' format
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
LOCAL oValueAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oValueAxis := oGraph:ValueAxis()
oValueAxis:Angle := "-90,-90"
oValueAxis:Title := "<b>mil"
oValueAxis:Format := "value ? value format `0` : ``"
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
130
|
Defines the title of the value-axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():Title := "<b>mil"
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
129
|
Specifies the font attributes to apply on the title and labels of the value-axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():Tfi := "<fgcolor red> Tahoma 10 bold"
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
128
|
Defines the direction of the value axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():Reverse := .T.
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
127
|
Aligns the value-axis to bottom/right or top/left side of the view
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():Align := 2/*exAlignRight*/
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
126
|
Customizes the labels of the value axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():Format := "value ? `<c><b>` + (value format `0`) + `</b><br><c><fgcolor lightgray>mil` : ``"
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
125
|
Customizes the labels of the value axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():Format := "value ? (value format `0`) + ` mil` : ``"
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
124
|
Hides the value-axis
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
LOCAL oSeries
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:ValueAxis():Visible := .F.
oGraph:CategoryAxis():Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
123
|
Changes the position of value-axis (click to change the value-axis's position)
PROCEDURE OnClick(oGraph)
oGraph:ValueAxes():Item("a"):Position := 0
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie,oSerie1
LOCAL oSeries
LOCAL oValueAxes
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:Click := {|| OnClick(oGraph)} /*Occurs when the user presses and then releases the left mouse button over the control.*/
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oValueAxes := oGraph:ValueAxes()
oValueAxes:Add("p")
oValueAxes:Add("a"):Color := "teal"
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:Axis := "p"
oSerie:Type := "Line"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oSerie1 := oSeries:Add("4458,3037,1018,2470,1784,1018,856")
oSerie1:Name := "Area"
oSerie1:Axis := "a"
oGraph:Legend():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
122
|
Access the value-axis giving its name (click to change the value-axis's background)
PROCEDURE OnClick(oGraph)
oGraph:ValueAxes():Item("a"):ColorChart := 16119285
oGraph:Refresh()
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie,oSerie1
LOCAL oSeries
LOCAL oValueAxes
LOCAL oValueAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:Click := {|| OnClick(oGraph)} /*Occurs when the user presses and then releases the left mouse button over the control.*/
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oValueAxes := oGraph:ValueAxes()
oValueAxes:Add("p"):Start := 0.25
oValueAxis := oValueAxes:Add("a")
oValueAxis:End := 0.25
oValueAxis:Visible := .F.
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:Axis := "p"
oSerie:Type := "Line"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oSerie1 := oSeries:Add("4458,3037,1018,2470,1784,1018,856")
oSerie1:Name := "Area"
oSerie1:Axis := "a"
oGraph:Legend():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
121
|
Specifies the name of the value axis to use
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oLegend
LOCAL oSerie,oSerie1
LOCAL oSeries
LOCAL oValueAxes
LOCAL oValueAxis,oValueAxis1
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:ValueSize := 18
oValueAxes := oGraph:ValueAxes()
oValueAxis := oValueAxes:Add("pop-ax")
oValueAxis:Name := "pop-ax"
oValueAxis:Start := 0.25
oValueAxis:Align := 0/*exAlignLeft*/
oValueAxis1 := oValueAxes:Add("area-ax")
oValueAxis1:Name := "area-ax"
oValueAxis1:End := 0.25
oValueAxis1:Visible := .F.
oValueAxis1:ColorChart := 16119285
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:Axis := "pop-ax"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oSerie:Vertical := .T.
oSerie1 := oSeries:Add("4458,3037,1018,2470,1784,1018,856")
oSerie1:Name := "Area"
oSerie1:Axis := "area-ax"
oLegend := oGraph:Legend()
oLegend:Visible := .T.
oLegend:Dock := 3/*exLeft*/
oLegend:Align := 0/*exStart*/
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
120
|
Remove a value-axis (click to remove the first value-axis)
PROCEDURE OnClick(oGraph)
oGraph:ValueAxes():Remove(0)
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie,oSerie1
LOCAL oSeries
LOCAL oValueAxes
LOCAL oValueAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:Click := {|| OnClick(oGraph)} /*Occurs when the user presses and then releases the left mouse button over the control.*/
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oValueAxes := oGraph:ValueAxes()
oValueAxes:Add("p"):Start := 0.25
oValueAxis := oValueAxes:Add("a")
oValueAxis:End := 0.25
oValueAxis:Visible := .F.
oValueAxis:ColorChart := 16119285
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:Axis := "p"
oSerie:Type := "Line"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oSerie1 := oSeries:Add("4458,3037,1018,2470,1784,1018,856")
oSerie1:Name := "Area"
oSerie1:Axis := "a"
oGraph:Legend():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
119
|
Remove all value-axes (click to clear the value-axes)
PROCEDURE OnClick(oGraph)
oGraph:ValueAxes():Clear()
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie,oSerie1
LOCAL oSeries
LOCAL oValueAxes
LOCAL oValueAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:Click := {|| OnClick(oGraph)} /*Occurs when the user presses and then releases the left mouse button over the control.*/
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oValueAxes := oGraph:ValueAxes()
oValueAxes:Add("p"):Start := 0.25
oValueAxis := oValueAxes:Add("a")
oValueAxis:End := 0.25
oValueAxis:Visible := .F.
oValueAxis:ColorChart := 16119285
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:Axis := "p"
oSerie:Type := "Line"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oSerie1 := oSeries:Add("4458,3037,1018,2470,1784,1018,856")
oSerie1:Name := "Area"
oSerie1:Axis := "a"
oGraph:Legend():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
118
|
Adds multiple value-axes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oCategoryAxis
LOCAL oSerie,oSerie1
LOCAL oSeries
LOCAL oValueAxes
LOCAL oValueAxis
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oValueAxes := oGraph:ValueAxes()
oValueAxes:Add("p"):Start := 0.25
oValueAxis := oValueAxes:Add("a")
oValueAxis:End := 0.25
oValueAxis:Visible := .F.
oValueAxis:ColorChart := 16119285
oCategoryAxis := oGraph:CategoryAxis()
oCategoryAxis:Categories := "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oCategoryAxis:MajorGridLines():Color := "lightgray"
oSeries := oGraph:Series()
oSerie := oSeries:Add("4600,1300,747,579,0,422,42")
oSerie:Name := "Population"
oSerie:Axis := "p"
oSerie:Type := "Line"
oSerie:SetProperty("Misc",6/*exLineSize*/,3)
oSerie1 := oSeries:Add("4458,3037,1018,2470,1784,1018,856")
oSerie1:Name := "Area"
oSerie1:Axis := "a"
oGraph:Legend():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
117
|
Defines the foreground color to show the visible values within the control's legend
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Background",208/*exLegendLabel*/,AutomationTranslateColor( GraMakeRGBColor ( { 0,0,1 } ) , .F. ))
oGraph:SetProperty("Background",206/*exLegendSymbol*/,AutomationTranslateColor( GraMakeRGBColor ( { 0,0,1 } ) , .F. ))
oGraph:Series():Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)"):Name := "Area"
oSerie := oGraph:Series():Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
oSerie:Name := "Population"
oSerie:Visible := .F.
oGraph:Legend():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
116
|
Defines a different background color to show the visible values within the control's legend
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Background",204/*exLegendUnit*/,AutomationTranslateColor( GraMakeRGBColor ( { 240,240,240 } ) , .F. ))
oGraph:Series():Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)"):Name := "Area"
oSerie := oGraph:Series():Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
oSerie:Name := "Population"
oSerie:Visible := .F.
oGraph:Legend():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
115
|
Defines a different background color to show the hidden values within the control's legend
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Background",205/*exLegendUnitHidden*/,AutomationTranslateColor( GraMakeRGBColor ( { 240,240,240 } ) , .F. ))
oGraph:Series():Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)"):Name := "Area"
oSerie := oGraph:Series():Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
oSerie:Name := "Population"
oSerie:Visible := .F.
oGraph:Legend():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
114
|
Defines the foreground color to show the hidden values within the control's legend
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:SetProperty("Background",209/*exLegendLabelHidden*/,AutomationTranslateColor( GraMakeRGBColor ( { 220,220,220 } ) , .F. ))
oGraph:SetProperty("Background",207/*exLegendSymbolHidden*/,AutomationTranslateColor( GraMakeRGBColor ( { 220,220,220 } ) , .F. ))
oGraph:Series():Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)"):Name := "Area"
oSerie := oGraph:Series():Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
oSerie:Name := "Population"
oSerie:Visible := .F.
oGraph:Legend():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
113
|
Hides a symbol or item of the legend by code
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:AutoFit := .T.
oGraph:Series():Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)"):Name := "Area"
oSerie := oGraph:Series():Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
oSerie:Name := "Population"
oSerie:Visible := .F.
oGraph:Legend():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
112
|
Defines the percentage of transparency for displaying tooltips on series
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:SetProperty("Background",211/*exSerieCursorTooltipTransparent*/,AutomationTranslateColor( GraMakeRGBColor ( { 75,0,0 } ) , .F. ))
oGraph:AutoFit := .T.
oGraph:Series():Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph:Series():Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
oGraph:Cursor():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
111
|
Defines the percentage of transparency for displaying tooltips on axes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:SetProperty("Background",210/*exAxisCursorTooltipTransparent*/,AutomationTranslateColor( GraMakeRGBColor ( { 75,0,0 } ) , .F. ))
oGraph:AutoFit := .T.
oGraph:Series():Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph:Series():Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
oGraph:Cursor():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
110
|
Specifies the percent of transparency to show the overview-selection (0 indicates opaque, 50% indicates semi-transparent, and 100% indicates fully transparent)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oGraph:SetProperty("Background",203/*exOverviewSelTransparent*/,AutomationTranslateColor( GraMakeRGBColor ( { 75,0,0 } ) , .F. ))
oGraph:ValueSize := 6
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
oSerie := oGraph:Series():Add()
oSerie:Name := "aapl"
oSerie:Data := "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
oSerie:Type := "candle"
oGraph:Overview():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
109
|
Changes the color to show the overview's selection (EBN color)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oGraph:SetProperty("Background",202/*exOverviewSel*/,0x1000000)
oGraph:ValueSize := 6
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
oSerie := oGraph:Series():Add()
oSerie:Name := "aapl"
oSerie:Data := "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
oSerie:Type := "candle"
oGraph:Overview():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
108
|
Changes the color to show the overview's selection (solid color)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:SetProperty("Background",202/*exOverviewSel*/,0x10000ff)
oGraph:ValueSize := 6
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
oSerie := oGraph:Series():Add()
oSerie:Name := "aapl"
oSerie:Data := "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
oSerie:Type := "candle"
oGraph:Overview():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
107
|
Changes the color to show the overview's selection
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:SetProperty("Background",202/*exOverviewSel*/,AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGraph:ValueSize := 6
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
oSerie := oGraph:Series():Add()
oSerie:Name := "aapl"
oSerie:Data := "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
oSerie:Type := "candle"
oGraph:Overview():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
106
|
Changes the overview's background
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:SetProperty("Background",200/*exOverviewSelOut*/,AutomationTranslateColor( GraMakeRGBColor ( { 240,240,240 } ) , .F. ))
oGraph:ValueSize := 6
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
oSerie := oGraph:Series():Add()
oSerie:Name := "aapl"
oSerie:Data := "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
oSerie:Type := "candle"
oGraph:Overview():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
105
|
Specifies the visual-appearance to display the left/right parts outside of the overview-selection
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:SetProperty("Background",200/*exOverviewSelOut*/,AutomationTranslateColor( GraMakeRGBColor ( { 240,240,240 } ) , .F. ))
oGraph:ValueSize := 6
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
oSerie := oGraph:Series():Add()
oSerie:Name := "aapl"
oSerie:Data := "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
oSerie:Type := "candle"
oGraph:Overview():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
104
|
Adds left/ resize-margins of the overview's selection to resize it (EBN)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oGraph:SetProperty("Background",199/*exOverviewSelResize*/,0x1000000)
oGraph:ValueSize := 6
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
oSerie := oGraph:Series():Add()
oSerie:Name := "aapl"
oSerie:Data := "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
oSerie:Type := "candle"
oGraph:Overview():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
103
|
Adds left/ resize-margins of the overview's selection to resize it
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
LOCAL oSerie
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:SetProperty("Background",199/*exOverviewSelResize*/,AutomationTranslateColor( GraMakeRGBColor ( { 1,0,0 } ) , .F. ))
oGraph:ValueSize := 6
oGraph:Data := "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
oSerie := oGraph:Series():Add()
oSerie:Name := "aapl"
oSerie:Data := "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
oSerie:Type := "candle"
oGraph:Overview():Visible := .T.
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
102
|
Changes the colors to show the value's tooltip
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:SetProperty("Background",65/*exToolTipBackColor*/,AutomationTranslateColor( GraMakeRGBColor ( { 1,0,0 } ) , .F. ))
oGraph:SetProperty("Background",66/*exToolTipForeColor*/,AutomationTranslateColor( GraMakeRGBColor ( { 255,255,255 } ) , .F. ))
oGraph:AutoFit := .T.
oGraph:Series():Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)"):ShowValue := 1/*exPoint*/
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
101
|
Changes the visual appearance of the borders of the tooltips
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGraph
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGraph := XbpActiveXControl():new( oForm:drawingArea )
oGraph:CLSID := "Exontrol.Graph.1" /*{FE177A66-2B4E-48E1-ADAD-E5C17BE47660}*/
oGraph:create(,, {10,60},{610,370} )
oGraph:BeginUpdate()
oGraph:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oGraph:SetProperty("Background",64/*exToolTipAppearance*/,0x1000000)
oGraph:AutoFit := .T.
oGraph:Series():Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)"):ShowValue := 1/*exPoint*/
oGraph:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|